set scheme s1color

use panel, clear

// keep first individual occurrence
destring noi, gen(person)
egen personid=group(person ident)
sort personid annee trim
egen tag=tag(personid)
keep if tag==1
drop tag

// currently enrolled in secondary
gen secondary=(forniv>=2&forniv<=6)
drop if acteu6==5&forniv==.

keep if female==1&lnais==1&surveyr==2003 

collapse secondary, by(ag) 

twoway bar secondary ag, xtitle("Age") ytitle("Share of girls in secondary") ///
		color(dknavy) barwidth(0.6) xsca(range(15 23)) xlabel(15(1)23)


